Imports DAO
Imports DTO
Public Class PhanCongBUS
    Inherits AbstractBUS
    Public Sub Them(ByVal pcDTO As PhanCongDTO)
        Dim pcDAO As New PhanCongDAO()
        pcDAO.Them(pcDTO)
    End Sub
    Public Sub XoaTheoMa(ByVal maPhanCong As String)
        Dim pcDAO As New PhanCongDAO()
        pcDAO.XoaTheoMa(maPhanCong)

    End Sub
    Public Sub Sua(ByVal pcDTO As PhanCongDTO)
        Dim pcDAO As New PhanCongDAO()
        pcDAO.Sua(pcDTO)
    End Sub
    Public Function TiemKiemTheoMa(ByVal maPhanCong As String) As PhanCongDTO
        Dim pcDTO As PhanCongDTO
        Dim pcDAO As New PhanCongDAO()
        pcDTO = pcDAO.TiemKiemTheoMa(maPhanCong)
        Return pcDTO
    End Function
    Public Function TiemKiemTheoMaMonHoc(ByVal maMonHoc As String) As PhanCongDTO
        Dim pcDTO As PhanCongDTO
        Dim pcDAO As New PhanCongDAO()
        pcDTO = pcDAO.TiemKiemTheoMaMonHoc(maMonHoc)
        Return pcDTO
    End Function
    Public Function LayBang() As DataTable
        Dim dt As DataTable
        Dim pcDAO As New PhanCongDAO()
        dt = pcDAO.LayBang()
        Return dt
    End Function
    Public Sub CapNhatBang(ByVal dt As DataTable)
        Dim pcDAO As New PhanCongDAO()
        pcDAO.CapNhanBang(dt)
    End Sub
    Public Function LayDanhSach() As IList
        Dim ds As IList
        Dim pcDAO As New PhanCongDAO()
        ds = pcDAO.LayDanhSach()
        Return ds
    End Function
End Class
